home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / os2 / joevw122.arj / JVWINSTL.CMD < prev    next >
OS/2 REXX Batch file  |  1994-01-18  |  1KB  |  45 lines
  1. /* JoeView Installation REXX script */
  2. Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  3. Call SysLoadFuncs
  4. currentdirectory = DIRECTORY()
  5. Call SysCls
  6. Call SysCurState 'ON'
  7. Say
  8. Say
  9. Say
  10. Say
  11. Say 'In which directory will JoeView.exe be installed?  '
  12. Say
  13. Say currentdirectory
  14. Call SysCurPos 6, 0
  15. Pull string
  16. string = SysTextScreenRead( 6, 0, 80 )
  17. Parse Upper Var string destination string
  18. Call SysFileTree destination, 'directories', 'DO'
  19. If directories.0 = 0 Then Do
  20.    Say 'Make directory 'destination '(Y/N)'
  21.    answer = SysGetKey()
  22.    Say
  23.    Parse Upper Var answer answer
  24.    if answer = 'Y' then Call SysMkDir( destination )
  25. End  /* Do */
  26.  
  27. IF SUBSTR( destination, LENGTH(destination), 1 ) <> "\"
  28.   THEN destination = destination || "\"
  29.  
  30. title = "JoeView 1.22"
  31. classname = 'WPProgram'
  32. location = '<WP_DESKTOP>'
  33. filter= '*.GIF,*.JPG,*.JPEG,*.BMP,*.TGA,*.PBM,*.PGM,*.PPM,*.TIF,*.TIFF,*.RLE,*.MET,*.PCX,*.X11,*.RAS,*.SLS;'
  34. setup = 'EXENAME='destination'JoeView.exe;STARTUPDIR=',
  35.                    destination';PROGTYPE=PM;ASSOCFILTER='filter
  36. option = 'update'
  37.  
  38. Say "Creating JoeView 1.22 Program Object..."
  39. rc = SysCreateObject(classname, title, location, setup, option)
  40. Say ""
  41. Say 'All better now'
  42. Say 'You should take the *.BMP association off of the icon editor, if'
  43. Say 'you have not done so already.'
  44. Exit
  45.